* nntp.el (nntp-request-post): Clear the server buffer before

sending text to the server.

diff --git a/lisp/nntp.el b/lisp/nntp.el
index b6a49ee5888c6ad7f2ade08a24cb9642dfef733b..e5e1f2a36b3c065f73fc55d7267a7a989c337abb 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -591,8 +591,14 @@ servers."
 (defun nntp-request-post (&optional server)
   "Post the current buffer."
   (nntp-possibly-change-server nil server)
+  (save-excursion
+    (set-buffer nntp-server-buffer)
+    (erase-buffer))
   (if (nntp-send-command "^[23].*\r?\n" "POST")
       (progn
+       (save-excursion
+         (set-buffer nntp-server-buffer)
+         (erase-buffer))
        (nntp-encode-text)
        (nntp-send-region-to-server (point-min) (point-max))
        ;; 1.2a NNTP's post command is buggy. "^M" (\r) is not